home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf_main.ps < prev    next >
Text File  |  1997-08-14  |  15KB  |  508 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_main.ps
  19. % PDF file- and page-level operations.
  20.  
  21. % We handle the following PDF 1.2 constructs:
  22. %    page number rather than page object in Dest array
  23. % We explicitly ignore the following PDF 1.2 constructs:
  24. %    "Marked content" operators
  25.  
  26. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  27. .currentglobal true .setglobal
  28. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  29. pdfdict begin
  30.  
  31. % For simplicity, we use a single interpretation dictionary for all
  32. % PDF graphics execution, even though this is too liberal.
  33. /pdfopdict mark
  34.   objopdict { } forall
  35.   drawopdict { } forall
  36.   /endstream { exit } bind
  37.   (%%EOF) cvn { exit } bind        % for filters
  38.     % PDF 1.1 operators
  39.   /BX { /BXlevel BXlevel 1 add store } bind
  40.   /EX { /BXlevel BXlevel 1 sub store } bind
  41.     % PDF 1.2 operators
  42.   /BMC { pop } bind
  43.   /BDC { pop pop } bind
  44.   /EMC { }
  45.   /MP { pop } bind
  46.   /DP { pop pop } bind
  47. .dicttomark readonly def
  48.  
  49. % ======================== Main program ======================== %
  50.  
  51. end            % pdfdict
  52. userdict begin
  53.  
  54. /defaultfontname /Times-Roman def
  55.  
  56. % Make sure the registered encodings are loaded, so we don't run the risk
  57. % that some of the indices for their names will overflow the packed
  58. % representation.  (Yes, this is a hack.)
  59. SymbolEncoding pop
  60. DingbatsEncoding pop
  61.  
  62. % Redefine 'run' so it recognizes PDF files.
  63. systemdict begin
  64. /.runps /run load def
  65. /runpdfstring 50 string def        % length is arbitrary
  66. /run
  67.  { dup type /filetype ne { (r) file } if
  68.    dup read
  69.     { dup (%) 0 get eq
  70.        { pop dup //runpdfstring
  71.         % Some invalid files might have extra-long first lines....
  72.       {  { readline } .internalstopped not { pop pop exit } if
  73.         pop =string
  74.       }
  75.      loop
  76.      //runpdfstring (PDF-) anchorsearch
  77.       { pop pop runpdf }
  78.       { pop cvx .runexec }
  79.      ifelse
  80.        }
  81.        { 2 copy unread pop .runps
  82.        }
  83.       ifelse
  84.     }
  85.     { closefile
  86.     }
  87.    ifelse
  88.  } bind odef
  89. /runpdf            % <file> runpdf -
  90.  { userdict begin
  91.    /PSFile where { pop PSFile (w) file /PSout exch def } if
  92.    /Page# null def
  93.    /Page null def
  94.    /DSCPageCount 0 def
  95.    /PDFSave null def
  96.    GS_PDF_ProcSet begin
  97.    pdfdict begin
  98.    pdfopen begin
  99.    Trailer /Root oget /Pages oget /CropBox knownoget
  100.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  101.     }
  102.    if
  103.    /FirstPage where { pop FirstPage } { 1 } ifelse
  104.    1
  105.    /LastPage where { pop LastPage } { pdfpagecount } ifelse
  106.    QUIET not
  107.     { (Processing pages ) print 2 index =only ( through ) print dup =only
  108.       (.\n) print flush
  109.     }
  110.    if
  111.     { dup /Page# exch store
  112.       QUIET not { (Page ) print dup == flush } if
  113.       pdfgetpage pdfshowpage
  114.     } for
  115.    currentdict pdfclose
  116.    end            % temporary dict
  117.    end            % pdfdict
  118.    end            % userdict
  119.  } bind def
  120. end            % systemdict
  121. % Redefine the procedure that the C code uses for running piped input.
  122. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  123. /.runstdin {
  124.   { (%stdin) run } execute0
  125. } bind def
  126.  
  127. end            % userdict
  128. pdfdict begin
  129.  
  130. % ======================== File parsing ======================== %
  131.  
  132. % Read the cross-reference and trailer sections.
  133.  
  134. /traileropdict mark
  135.   (<<) cvn { mark } bind
  136.   (>>) cvn /.dicttomark load
  137.   ([) cvn { mark } bind        % ditto
  138.   (]) cvn dup load
  139.   /true true
  140.   /false false
  141.   /null null
  142.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  143.   /startxref /exit load
  144. .dicttomark readonly def
  145.  
  146. % Because of EOL conversion, lines with fixed contents might be followed
  147. % by one or more blanks.
  148. /lineeq            % <filestr> <conststr> lineeq <bool>
  149.  { anchorsearch
  150.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  151.     { pop false }
  152.    ifelse
  153.  } bind def
  154. /linene { lineeq not } bind def
  155.  
  156. % Read (mostly scan) the cross-reference table.
  157. /readxref        % <pos> readxref <trailerdict>
  158.  { PDFoffset add PDFfile exch setfileposition
  159.         % In some PDF files, this position actually points to
  160.         % white space before the xref line.  Skip over this here.
  161.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  162.    } loop
  163.    PDFfile exch setfileposition
  164.    PDFfile pdfstring readline pop
  165.    (xref) linene { /readxref cvx /syntaxerror signalerror } if
  166.         % Store the xref table entry position for each object.
  167.         % We only need to read the run headers, not every entry.
  168.     { PDFfile token pop        % first object # or trailer
  169.       dup /trailer eq { pop exit } if
  170.       PDFfile pdfstring readline pop
  171.       token pop            % entry count
  172.       exch pop exch
  173.         % This section might be adding new objects:
  174.         % ensure that Objects and Generations are big enough.
  175.         % Stack: count obj#
  176.       2 copy add
  177.       dup Objects llength gt
  178.        { dup Objects exch lgrowto /Objects exch def }
  179.       if
  180.       dup Generations llength gt
  181.        { dup Generations exch lgrowto /Generations exch def }
  182.       if
  183.       pop
  184.       PDFfile fileposition 3 -1 roll
  185.        { Objects 2 index lget null eq    % later update might have set it
  186.       { Objects 2 index 2 index cvx lput }
  187.          if exch 1 add exch 20 add
  188.        }
  189.       repeat PDFfile exch setfileposition pop
  190.     } loop
  191.    PDFfile traileropdict .pdfrun
  192.  } bind def
  193.  
  194. % Open a PDF file and read the trailer and cross-reference.
  195. /pdfopen        % <file> pdfopen <dict>
  196.  { pdfdict readonly pop        % can't do it any earlier than this
  197.    /PSout where { pop /pdf2psdict where { pop pdf2psdict begin } if } if
  198.    10 dict begin
  199.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  200.    cvlit /PDFfile exch def
  201.    /PDFsource PDFfile def
  202.    PDFfile dup 0 setfileposition pdfstring readstring 
  203.    not {/pdfopen cvx /syntaxerror signalerror} if
  204.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  205.    length /PDFoffset exch def pop pop
  206.    PDFfile dup dup 0 setfileposition bytesavailable 
  207.     % Scan backwards over trailing control-character garbage
  208.     % (nulls, ^Zs, EOLs).
  209.     { 1 sub 2 copy setfileposition 1 index read pop
  210.       32 ge {exit} if
  211.     } loop 1 sub setfileposition
  212.    prevline (%%EOF) linene { /pdfopen cvx /syntaxerror signalerror } if
  213.    PDFfile exch setfileposition
  214.    prevline cvi        % xref start position
  215.    exch PDFfile exch setfileposition
  216.    prevline (startxref) linene { /pdfopen cvx /syntaxerror signalerror } if
  217.    pop
  218.         % Stack: xrefpos
  219.    /Objects larray def
  220.    /Generations lstring def
  221.     % Read the last cross-reference table.
  222.    readxref /Trailer exch def
  223.    Trailer /Encrypt known
  224.     { pdf_process_Encrypt    % signal error
  225.     }
  226.    if
  227.     % Read any previous cross-reference tables.
  228.    Trailer { /Prev .knownget not { exit } if readxref } loop
  229.     % Create and initialize some caches.
  230.    /PageCount pdfpagecount def
  231.    /PageNumbers PageCount dict def
  232.    /PageIndex PageCount array def
  233.     % Write the DSC header if appropriate.
  234.    [ (%!PS-Adobe-1.0) #dsc
  235.    [ (%%Pages: (atend)) #dsc
  236.    [ (%%EndComments) #dsc
  237.    [ (%%BeginProlog) #dsc
  238.    [ (% This copyright applies to everything between here and the %%EndProlog:) #dsc
  239.    [ (% ) copyright #dsc
  240.    (gs_pdf.ps) #dscfile
  241.    PSLevel1 { (gs_l2img.ps) #dscfile } if
  242.    [ (%%EndProlog) #dsc
  243.     % Copy bookmarks (outline) to the output.
  244.    #?
  245.     { Trailer /Root oget /Outlines knownoget
  246.        { /First knownoget
  247.       { { dup writeoutline /Next knownoget not { exit } if } loop }
  248.      if
  249.        }
  250.       if
  251.     }
  252.    if   
  253.    currentdict end
  254.  } bind def
  255.  
  256. % Write the outline structure for a file.  Uses linkdest (below).
  257. /writeoutline        % <outlinedict> writeoutline -
  258.  { mark
  259.    0 2 index /First knownoget
  260.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  261.    if
  262.         % stack: dict mark count
  263.    dup 0 eq
  264.     { pop 1 index
  265.     }
  266.     { 2 index /Count knownoget { 0 lt { neg } if } if
  267.       /Count exch 3 index
  268.     }
  269.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  270.    /First knownoget
  271.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  272.    if
  273.  } bind def
  274.  
  275. % Close a PDF file.
  276. /pdfclose        % <dict> pdfclose -
  277.  { begin
  278.    /PSout where
  279.     { pop
  280.       [ (%%Trailer) #dsc
  281.       [ (%%Pages: ) DSCPageCount #dsc
  282.       PSout closefile
  283.     }
  284.    if
  285.    PDFfile closefile
  286.    end
  287.    pdf2psdict where { pop currentdict pdf2psdict eq { end } if } if
  288.  } bind def
  289.  
  290. % ======================== Page accessing ======================== %
  291.  
  292. % Get a (possibly inherited) attribute of a page.
  293. /pget            % <pagedict> <key> pget <value> -true-
  294.             % <pagedict> <key> pget -false-
  295.  { 2 copy knownoget
  296.     { exch pop exch pop true
  297.     }
  298.     { exch /Parent knownoget
  299.        { exch pget }
  300.        { pop false }
  301.       ifelse
  302.     }
  303.    ifelse
  304.  } bind def
  305.  
  306. % Get the value of a resource on a given page.
  307. /rget            % <resname> <pagedict> <restype> rget <value> -true-
  308.             % <resname> <pagedict> <restype> rget -false-
  309. { exch /Resources pget
  310.    { exch knownoget
  311.       { exch knownoget }
  312.       { pop false }
  313.      ifelse
  314.    }
  315.    { pop pop false
  316.    }
  317.   ifelse
  318. } bind def
  319.  
  320. % Get the total number of pages in the document.
  321. /pdfpagecount        % - pdfpagecount <int>
  322.  { Trailer /Root oget /Pages oget /Count oget
  323.  } bind def
  324.  
  325. % Find the N'th page of the document by iterating through the Pages tree.
  326. % The first page is numbered 1.
  327. /pdffindpage        % <int> pdffindpage <pagedict>
  328.  { dup Trailer /Root oget /Pages oget
  329.     {        % We should be able to tell when we reach a leaf
  330.         % by finding a Type unequal to /Pages.  Unfortunately,
  331.         % some files distributed by Adobe lack the Type key
  332.         % in some of the Pages nodes!  Instead, we check for Kids.
  333.       dup /Kids knownoget not { exit } if
  334.       exch pop null
  335.       0 1 3 index length 1 sub
  336.        { 2 index exch oget
  337.      dup /Kids known { dup /Count oget } { 1 } ifelse
  338.         % Stack: index kids null node count
  339.      dup 5 index ge { pop exch pop exit } if
  340.      5 -1 roll exch sub 4 1 roll pop
  341.        }
  342.       for exch pop
  343.       dup null eq { pop pop 1 null exit } if
  344.     }
  345.    loop
  346.         % Stack: index countleft node
  347.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  348.    exch pop
  349.    PageIndex 2 index 1 sub 2 index put
  350.    PageNumbers 1 index 3 index put
  351.    exch pop
  352.  } bind def
  353.  
  354. % Find the N'th page of the document.
  355. % The first page is numbered 1.
  356. /pdfgetpage        % <int> pdfgetpage <pagedict>
  357.  { PageIndex 1 index 1 sub get dup null ne
  358.     { exch pop }
  359.     { pop pdffindpage }
  360.    ifelse
  361.  } bind def
  362.  
  363. % Find the page number of a page object (inverse of pdfgetpage).
  364. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  365.  {    % We use the simplest and stupidest of all possible algorithms....
  366.    PageNumbers 1 index .knownget
  367.     { exch pop
  368.     }
  369.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  370.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  371.        }
  372.       for exch pop
  373.     }
  374.    ifelse
  375.  } bind def
  376.  
  377. % Display a given page.
  378. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  379.  { aload pop exch 3 index sub exch 2 index sub
  380.  } bind def
  381. /linkdest        % <link|outline> linkdest
  382.             %   ([/Page <n>] /View <view> | ) <link|outline>
  383.  { dup /Dest knownoget
  384.     {        % Check for a name, to be looked up in Dests.
  385.       dup type /nametype eq
  386.        { Trailer /Root oget /Dests oget exch knownoget
  387.       { dup type /dicttype eq { /D get } if }
  388.       { null }
  389.      ifelse
  390.        }
  391.       if
  392.       dup null eq
  393.        { pop }
  394.        { dup 0 oget
  395.      dup null eq
  396.       { pop }
  397.       { dup type /integertype ne { pdfpagenumber } if
  398.         /Page exch 4 -2 roll
  399.       }
  400.      ifelse
  401.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  402.        }
  403.       ifelse
  404.     }
  405.    if
  406.  } bind def
  407. /annottypes 5 dict dup begin
  408.   /Text
  409.     { mark exch
  410.        { /Rect /Open /Contents }
  411.        { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  412.       forall pop /ANN pdfmark
  413.     } bind def
  414.   /Link
  415.     { mark exch
  416.        { /Rect /Border }
  417.        { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  418.       forall linkdest pop /LNK pdfmark
  419.     } bind def
  420. end def
  421.  
  422. /pdfshowpage        % <pagedict> pdfshowpage -
  423.  { dup /Page exch store
  424.    pdfshowpage_init 
  425.    pdfshowpage_setpage 
  426.    save /PDFSave exch store
  427.    (before exec) VMDEBUG
  428.      pdfshowpage_finish
  429.    (after exec) VMDEBUG
  430.    PDFSave restore
  431.  } bind def
  432.  
  433. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  434.  { } bind def
  435.  
  436. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  437.  { gsave
  438.    [ (%%Page: ) Page# ( ) 
  439.      DSCPageCount 1 add /DSCPageCount 1 index store #dsc
  440.    [ (GS_PDF_ProcSet begin) #dsc
  441.  } bind def
  442.  
  443. /pdfshowpage_setpage    % <pagedict> pdfshowpage_setpage <pagedict>
  444.  { 
  445.    3 dict    % for setpagedevice
  446.     % Stack: pagedict setpagedict
  447.     % We want to look at Rotate for displays, but not for printers.
  448.     % The following is a hack, but we don't know a better way to do this.
  449.    currentpagedevice /OutputFile known
  450.    /PSout where dup { exch pop } if or not
  451.     { dup /Orientation 3 index /Rotate pget not { 0 } if 90 idiv
  452.     % Rotate specifies *clockwise* rotation!
  453.       neg 3 and put
  454.     }
  455.    if
  456.     % Stack: pagedict setpagedict
  457.    1 index /MediaBox pget
  458.     {            % Set the page size.
  459.       boxrect [ 2 index 5 index sub 2 index 5 index sub ]
  460.     % Stack: pagedict setpagedict llx lly urx ury pagesize
  461.       5 index exch /PageSize exch put
  462.     % Stack: pagedict contents setpagedict llx lly urx ury
  463.       pop pop
  464.       neg exch neg exch
  465.       [ 3 1 roll ]
  466.     % Stack: pagedict setpagedict pageoffset
  467.       1 index exch /PageOffset exch put
  468.     }
  469.    if
  470.     % Stack: pagedict setpagedict
  471.    /setpagedevice 1 #
  472.  } bind def
  473.  
  474. /pdfshowpage_finish    % <pagedict> pdfshowpage_finish -
  475.  {
  476.     % Copy crop box.
  477.    dup /CropBox pget
  478.     { boxrect rectclip
  479.       dup /CropBox knownoget { mark /CropBox 3 -1 roll /PAGE pdfmark } if
  480.     }
  481.    if
  482.  
  483.     % Copy annotations and links.
  484.    dup /Annots knownoget
  485.     { 0 1 2 index length 1 sub
  486.        { 1 index exch oget
  487.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  488.        }
  489.       for pop
  490.     }
  491.    if
  492.  
  493.     % Display the actual page contents.
  494.    2 dict begin
  495.    /BXlevel 0 def
  496.    matrix currentmatrix /beginpage 0 # setmatrix
  497.    /Contents knownoget not { 0 array } if
  498.    dup type /arraytype ne { 1 array astore } if
  499.     { oforce false resolvestream pdfopdict .pdfrun } forall
  500.    /endpage 0 #
  501.    end            % scratch dict
  502.    grestore
  503.    [ (end) #dsc
  504.  } bind def
  505.  
  506. end            % pdfdict
  507. .setglobal
  508.